home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / C-Cl / Cindy's Hyper Finder.cpt / Cindy's Hyper Finder / stack_-1.xml < prev   
Extensible Markup Language  |  1992-09-04  |  2KB  |  23 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>3</cardCount>
  7.     <cardID>2949</cardID>
  8.     <listID>4366</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>on openStackset userlevel to 5put the screenRect into possibleRectput the rect of this card into actualRectif actualRect is possibleRect thenif the number of cards in bg "Finder" is 1 thengo to first card in bg "Set"exit openStackend ifelseput item 3 of possibleRect & "," & item 4 of possibleRect into whask "Reset size of stack to what?" with whif the result is "Cancel" thenelseif it is not empty thenput it into whput item 1 of wh into item 3 of possibleRectput item 2 of wh into item 4 of possibleRectset the rect of this card to possibleRectgo to bg "Set"set the loc of bg btn "Clear Program Names" to¬¨83,31set the loc of bg btn "Import Program Names" to¬¨(item 3 of possibleRect)/2,31set the loc of bg btn "Make New Icons" to¬¨(item 3 of possibleRect)-83,31put "set the rect of bg fld " & quote & "Applications" & ¬¨quote & " to 0,42," & wh into doMedo doMego to first card in bg "Finder"set the loc of bg btn "Prev" to ¬¨(item 1 of wh)/2-17,(item 2 of wh)-15set the loc of bg btn "Next" to ¬¨(item 1 of wh)/2+17,(item 2 of wh)-15set the loc of bg btn "Make New Application Icon" to¬¨(item 1 of wh - 103),(item 2 of wh - 12)go to first card in bg "Set"exit openStackend ifend ifend ifgo first card in bg "Finder"go next cardend openStackon doMenu menuFunctionif menuFunction is "Help" thenhide menubarpush cardgo to card "Help" of bg "Set"unlock screenwait until the mouseClickpop cardshow menubarelsepass doMenuend ifend doMenu</script>
  17.     <background id="2703" file="background_2703.xml" name="Set" />
  18.     <background id="3711" file="background_3711.xml" name="Finder" />
  19.     <card id="2949" file="card_2949.xml" marked="false" name="" owner="2703" />
  20.     <card id="4286" file="card_4286.xml" marked="false" name="Help" owner="2703" />
  21.     <card id="3885" file="card_3885.xml" marked="false" name="Template" owner="3711" />
  22. </stack>
  23.